## Figure 2

require(foreign)

hou.cutpoints <- read.dta("hou_cutpoints.dta")
sen.cutpoints <- read.dta("sen_cutpoints.dta")

windows(width=11,height=6) 
par(mfrow=c(1,2))
par(mgp=c(1.5, .5, 0))
par(mar=c(2.75,2.5, 1.5, .5))


plot(density(hou.cutpoints$h1,na.rm=T), xlim=c(-2.2, 2.2), lwd=2, lty=2, xlab="Cutpoint Locations", main="House",cex.main=1,cex.lab=0.8,cex.axis=0.8)
lines(density(hou.cutpoints$h2,na.rm=T), lwd=2, lty=3)
lines(density(hou.cutpoints$h3,na.rm=T),lwd=2)
arrows(.6,.8,.05,.8,length=.1,cex=.3)
text(1.35,.8,"Before Jeffords switch",cex=.6)
arrows(-.85,.5,-.4,.5,length=.1,cex=.3)
text(-1.4,.5,"After Jeffords switch,",cex=.6)
text(-1.4,.475, "before war began",cex=.6)
arrows(1,.35,.4,.25,length=.1,cex=.3)
text(1.25,.38,"Post-war",cex=.6)


plot(density(sen.cutpoints$s1,na.rm=T), xlim=c(-2.2, 2.2), lwd=2, lty=2, xlab="Cutpoint Locations", main="Senate",cex.main=1,cex.lab=0.8,cex.axis=0.8)
lines(density(sen.cutpoints$s2,na.rm=T), lwd=2, lty=3)
lines(density(sen.cutpoints$s3,na.rm=T),lwd=2)
arrows(-.8,.8,-0.4,.8,cex=.3,length=.1)
text(-1.5,.8,"Before Jeffords switch",cex=.75)
arrows(1.1,.5,.5,.5,cex=.3,length=.1)
text(1.75,.52,"After Jeffords switch,",cex=.75)
text(1.75,.495, "before war began",cex=.75)
arrows(-1.35,.275,-1,.18,cex=.3,length=.1)
text(-1.5,.3,"Post-war",cex=.75)
